home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / closin1r / cdxvbscr.cls < prev    next >
Text File  |  1999-08-25  |  1KB  |  46 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CDXVBScreen"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Public m_lpdd As IDirectDraw2
  15.  
  16. Public Sub CreateFullScreen(hWnd As Long, Width As Integer, Height As Integer, BPP As Integer)
  17.       Dim dwFlags As Long
  18.  
  19.       dwFlags = DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN Or DDSCL_ALLOWREBOOT Or DDSCL_ALLOWMODEX
  20.  
  21.       DirectDrawCreate ByVal 0&, m_lpdd, Nothing
  22.  
  23.       m_lpdd.SetCooperativeLevel hWnd, dwFlags
  24.       
  25.       m_lpdd.SetDisplayMode Width, Height, BPP, 0, 0
  26. End Sub
  27.  
  28. Public Sub CloseCDXVBScreen()
  29.       m_lpdd.SetCooperativeLevel 0, DDSCL_NORMAL
  30.       m_lpdd.RestoreDisplayMode
  31.  
  32.       Set m_lpdd = Nothing
  33. End Sub
  34.  
  35. Public Sub HideMouse()
  36.       ShowCursor False
  37. End Sub
  38.  
  39. Public Sub ShowMouse()
  40.       ShowCursor True
  41. End Sub
  42.  
  43. Private Sub Class_Terminate()
  44.       Call CloseCDXVBScreen
  45. End Sub
  46.